perm filename BORDER.LST[MF,DEK] blob sn#756319 filedate 1984-05-29 generic text, type T, neo UTF8
  1) BORDER.MF[MF,DEK] and 2) DEK.MF[BOR,DEK]	5-29-84 22:14	pages 1,1

**** File 1) BORDER.MF[MF,DEK]/1P/13L
1)	def horizline expr z =	% a horizontal line to the right of point z
1)		draw z+(.5pt,0)+noise .. z+(5.5pt,0)+noise; showit enddef;
1)	def vertline expr z =	% a vertical line above point z
1)		draw z+(0,.5pt)+noise .. z+(0,5.5pt)+noise; showit enddef;
1)	def moveright = xx:=xx+6pt enddef;	% move to next 6pt x 6pt square
1)	def CR = xx:=x0; yy:=yy-6pt enddef;	% "carriage return"
1)	def H =		% six horizontal lines
**** File 2) DEK.MF[BOR,DEK]/1P/13L
2)	def horizline expr z =
2)		draw z+(.5pt,0)+noise .. z+(5.5pt,0)+noise; showit enddef;
2)	def vertline expr z =
2)		draw z+(0,.5pt)+noise .. z+(0,5.5pt)+noise; showit enddef;
2)	def moveright = xx:=xx+6pt enddef;
2)	def CR = xx:=x0; yy:=yy-6pt enddef;
2)	def H =		% six horizontal lines
***************


**** File 1) BORDER.MF[MF,DEK]/1P/40L
1)	vardef char.N.E =
**** File 2) DEK.MF[BOR,DEK]/1P/40L
2)	vardef char.N.W =
2)	 xx:=x0:=-3pt; yy:=15pt;
2)	 H; V; H; V; CR;
2)	 V;H;C;V; H; CR;
2)	 H; V; H; V; enddef;
2)	test N.W;
2)	vardef char.N.E =
***************


**** File 1) BORDER.MF[MF,DEK]/1P/49L
1)	vardef char.N.W =
1)	 xx:=x0:=-3pt; yy:=15pt;
1)	 H; V; H; V; CR;
1)	 V;H;C;V; H; CR;
1)	 H; V; H; V; enddef;
1)	test N.W;
1)	vardef char.M.E =
**** File 2) DEK.MF[BOR,DEK]/1P/57L
2)	vardef char.M.W =
2)	 xx:=x0:=-3pt; yy:=21pt;
2)	 V; H; V; CR;
2)	 H; V; H; CR;
2)	 V; H; V; CR;
2)	 H; V; H; enddef;
2)	test M.W;
  1) BORDER.MF[MF,DEK] and 2) DEK.MF[BOR,DEK]	5-29-84 22:14	pages 1,1

2)	vardef char.M.E =
***************


**** File 1) BORDER.MF[MF,DEK]/1P/66L
1)	vardef char.M.W =
1)	 xx:=x0:=-3pt; yy:=21pt;
1)	 V; H; V; CR;
1)	 H; V; H; CR;
1)	 V; H; V; CR;
1)	 H; V; H; enddef;
1)	test M.W;
1)	vardef char.S.M =
**** File 2) DEK.MF[BOR,DEK]/1P/75L
2)	vardef char.S.M =
***************